home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / APTCL5.M5 < prev    next >
Text File  |  1996-04-01  |  6KB  |  190 lines
  1. name APTCL5 Multax Generator
  2.  
  3. c 00
  4. G 2
  5. h 00
  6. p >8
  7. X ->3.4 ""
  8. Y ->3.4 ,
  9. Z ->3.4 ,
  10. i ->1.4 ,
  11. j ->1.4 ,
  12. k ->1.4 ,
  13. z >3.4 IncFrom Z
  14. R ->3.4 ,
  15. F >3.3
  16. r >3.4 IncFrom Z
  17. f >3.3
  18. t >2
  19. l >2
  20. s >4
  21. M 2
  22. a >3.>4
  23. b >3.>4 ,
  24. d >2
  25. n >3.>4
  26. ) 00
  27.  
  28. ModalLetters f                        # List of letters that are modal    
  29. ModalGs                               # List of g codes that are modal    
  30.  
  31. HCode X                               # X or X U  'Horizontal char.       
  32. VCode Y                               # Y or Y V  'Vertical char.         
  33. Dcode Z                               # Depth char.                       
  34. FeedCode f                            # Feed rate char.                   
  35.  
  36. Comment PPRINT/                       # Begin End comment char.           
  37.  
  38. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  39. Coolant 8 9 7                         # On, Off & Mist m codes            
  40. DComp 41 42 40                        # Left, Right & Cancel m codes      
  41. LComp 43 49                           # On & Off codes                    
  42.  
  43. Feed G01                            # Linear move                       
  44. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  45. Work G                                # Work offset register              
  46. CtrCode I J                           # I J or R or I J K L               
  47. Helical? N
  48.  
  49. Spaces? Y                             # Y or N  'Spaces between words     
  50. Incremental? N                        # Y or N  'Inc or abs output        
  51. CtrIncremental? N                     # Y or N  'Inc or abs I & J         
  52. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  53.  
  54. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  55.  
  56.  
  57. Drill 1                               # Drilling canned/manual cycle      
  58. G81 z[Depth] F[FRate] r[Vclear]
  59. G01 X[H] Y[V] Z[PointD] i[IVect] j[JVect] k[KVect]
  60. end cancel
  61.  
  62. Peck 1                                # Pecking canned/manual cycle       
  63. G83 z[Depth] F[Frate] r[Vclear] n[VBite]
  64. G01 X[H] Y[V] Z[PointD] i[IVect] j[JVect] k[KVect]
  65. end cancel
  66.  
  67. Tap 1                                 # Tapping canned/manual cycle       
  68. G84 z[Depth] F[Frate] r[Vclear]
  69. G01 X[H] Y[V] Z[PointD] i[IVect] j[JVect] k[KVect]
  70. end cancel
  71.  
  72. Ream 1                                # Reaming canned/manual cycle       
  73. G85 z[Depth] F[FRate] r[Vclear]
  74. G01 X[H] Y[V] Z[PointD] i[IVect] j[JVect] k[KVect]
  75. end cancel
  76.  
  77. Bore 1                                # Boring canned/manual cycle        
  78. G86 z[Depth] F[FRate] r[Vclear]
  79. G01 X[H] Y[V] Z[PointD] i[IVect] j[JVect] k[KVect]
  80. end cancel
  81.  
  82. Cancel                                # Cancel a canned/manual cycle      
  83. G80
  84. end
  85.  
  86. Index X                               # Index the rotary table            
  87. k[RotAngle]
  88. End
  89.  
  90. StartCode                             # Start of the program              
  91. p[Val1]
  92. M98
  93. End
  94.  
  95. 1stToolChange                         # First tool change                 
  96. G99 X[Val2] Y[Val3] Z[Val4] i[IVect] j[JVect] k[KVect]
  97. t[Tool] l[Lcomp]
  98. a[ToolDiam] b[ToolRad]
  99. s[Speed] M[Direct]
  100. M[Cool]
  101. End
  102.  
  103. Infeed                                # Enable cutter comp                
  104. G[Side] d[DComp]
  105. G01 X[H] Y[V] Z[D] i[IVect] j[JVect] k[KVect]
  106. end
  107.  
  108. Outfeed                               # Disable cutter comp               
  109. G40
  110. G01 X[H] Y[V] Z[D] i[IVect] j[JVect] k[KVect]
  111. end
  112.  
  113. ToolChange                            # Secondary tool changes            
  114. M09
  115. G00
  116. G01 X[H] Y[V] Z[Val4] i[IVect] j[JVect] k[KVect]
  117. t[Tool] l[Lcomp]
  118. a[ToolDiam] b[ToolRad]
  119. s[Speed] M[Direct]
  120. M[Cool]
  121. End
  122.  
  123. EndCode                               # End of the program                
  124. G00
  125. G01 X[Val2] Y[Val3] Z[Val4] i[IVect] j[JVect] k[KVect]
  126. M09
  127. M02
  128. M99
  129. End
  130.  
  131. LineCode                              # Linear move                       
  132. f[FRate]
  133. G01 X[H] Y[V] Z[D] i[IVect] j[JVect] k[KVect]
  134. end
  135.  
  136. RapidCode                             # Rapid move                        
  137. G00
  138. G01 X[H] Y[V] Z[D] i[IVect] j[JVect] k[KVect]
  139. end
  140.  
  141. CwCode                                # CW circular move                  
  142. c0 X[Hctr] Y[Vctr] Z[D] i0.0 j0.0 k-1.0 R[ArcRad]
  143. G01 X[H] Y[V] Z[D] i[IVect] j[JVect] k[KVect]
  144. end
  145.  
  146. CcwCode                               # CCW circular move                 
  147. c0 X[Hctr] Y[Vctr] Z[D] i0.0 j0.0 k1.0 R[ArcRad]
  148. G01 X[H] Y[V] Z[D] i[IVect] j[JVect] k[KVect]
  149. end
  150.  
  151. Ask [Val1] " Program#   : " "0000"
  152. Ask [Val2] " X-Axis home: " " 0.0"
  153. Ask [Val3] " Y-Axis home: " " 0.0"
  154. Ask [Val4] " Z-Axis home: " "10.0"
  155.  
  156. Replace "c" with "CIRCLE/"
  157. Replace "G00" with "RAPID"
  158. Replace "G01" with "GOTO  /"
  159. Replace "G99" with "FROM  /"
  160. Replace "p" with "PARTNO/ "
  161. Replace "(" with "PPRINT/ "
  162. Replace "G41" with "CUTCOM/LEFT"
  163. Replace "G42" with "CUTCOM/RIGHT"
  164. Replace "G40" with "CUTCOM/OFF"
  165. Replace "d" with ", "
  166. Replace "t" with "LOADTL/"
  167. Replace "f" with "FEDRAT/IPM,"
  168. Replace "l" with ", OSETNO,"
  169. Replace "s" with "SPINDL/RPM,"
  170. Replace "M00" with "STOP"
  171. Replace "M01" with "OPSTOP"
  172. Replace "M02" with "END"
  173. Replace "M03" with ", CLW"
  174. Replace "M04" with ", CCLW"
  175. Replace "M07" with "COOLNT/MIST"
  176. Replace "M08" with "COOLNT/ON"
  177. Replace "M09" with "COOLNT/OFF"
  178. Replace "M98" with "MULTAX/ON"
  179. Replace "M99" with "FINI"
  180. Replace "G80" with "CYCLE /OFF"
  181. Replace "G81" with "CYCLE /DRILL"
  182. Replace "G83" with "CYCLE /DEEP"
  183. Replace "G84" with "CYCLE /TAP"
  184. Replace "G85" with "CYCLE /REAM"
  185. Replace "G86" with "CYCLE /BORE"
  186. Replace "n" with ", INCR, "
  187. Replace "a" with "CUTTER/"
  188. Replace " F" with ", IPM,"
  189. Replace "z" with ", FEDTO,"
  190.